
fips_xtable <- xtable(ag.state[,c("state", "count.sum")],digits=0)
names(fips_xtable) <- c("State", "Number of sampled agencies")
print(fips_xtable,include.rownames=FALSE,file= "results/tablee1.tex") 